(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     19191,        511]
NotebookOptionsPosition[     15665,        447]
NotebookOutlinePosition[     16020,        463]
CellTagsIndexPosition[     15977,        460]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"{", 
   RowBox[{
   "0.34", ",", "0.27", ",", "0.25", ",", "0.20", ",", "0.16", ",", "0.23", 
    ",", "0.23", ",", "0.23"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7825013033282223`*^9, 3.782501342562845*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"15743a44-d7d6-4826-91e1-48243c0f3a06"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.34`", ",", "0.27`", ",", "0.25`", ",", "0.2`", ",", "0.16`", ",", 
   "0.23`", ",", "0.23`", ",", "0.23`"}], "}"}]], "Output",
 CellChangeTimes->{3.7825013434285297`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"6e8e411d-cad6-4d6b-a4af-13d758db7043"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"b", "=", 
  RowBox[{"Table", "[", 
   RowBox[{"i", ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "0", ",", "7"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7825014194214683`*^9, 3.78250143338509*^9}, {
  3.7825014687938104`*^9, 3.782501469063053*^9}, {3.7825015085335383`*^9, 
  3.7825015088426747`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"1cb8a5c8-cc86-407b-9fb9-d630c7eb886f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7"}],
   "}"}]], "Output",
 CellChangeTimes->{
  3.7825014342627797`*^9, {3.7825014696435013`*^9, 3.7825015100015783`*^9}},
 CellLabel->"Out[10]=",ExpressionUUID->"49af61f0-df2b-44dc-a2a0-db3276a12ba4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", "=", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{"b", ",", "a"}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7825014516596317`*^9, 3.78250145611372*^9}, {
  3.782501488250741*^9, 3.7825015387945776`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"1137f1b2-2610-4951-9184-84b177fc12b4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0.34`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0.27`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0.25`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "0.2`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "0.16`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "0.23`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "0.23`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "0.23`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7825014569634094`*^9, 3.782501491130042*^9}, {
  3.782501521450985*^9, 3.7825015395202456`*^9}},
 CellLabel->"Out[13]=",ExpressionUUID->"ba061611-c4bf-4e11-b8ef-04af10d5e4c3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"c", ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<C/\[Mu]F\>\"", ",", "\"\<I/A\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.782501345405244*^9, 3.7825013511289387`*^9}, {
  3.7825015424012346`*^9, 3.782501596207383*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"c30c14c2-9541-4c6d-bd46-4770f7323d0d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<G:/1.eps\>\"", ",", 
   GraphicsBox[{{}, {{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{0., 0.34}, {1., 0.27}, {2., 0.25}, {3., 0.2}, {4., 0.16}, {
        5., 0.23}, {6., 0.23}, {7., 0.23}}]}, {}}, {}, {}, {}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{
      FormBox["\"C/\[Mu]F\"", TraditionalForm], 
      FormBox["\"I/A\"", TraditionalForm]},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    ImageSize->{501., Automatic},
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 7.}, {0, 0.34}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7825033314662247`*^9, 3.7825033584789877`*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"854b10eb-7416-44ff-9244-0d7000a1a5be"],

Cell[BoxData["\<\"G:/1.eps\"\>"], "Output",
 CellChangeTimes->{3.7825033602203307`*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"e802fec2-5ea9-4f2a-b75b-150064ae5fb5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d", "=", 
  RowBox[{"{", 
   RowBox[{
   "0.38", ",", "0.48", ",", "0.52", ",", "0.65", ",", "0.82", ",", "0.57", 
    ",", "0.57", ",", "0.43"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7825016927832355`*^9, 3.782501733032563*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"467a86af-91af-4387-9fe1-fd6db6166044"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.38`", ",", "0.48`", ",", "0.52`", ",", "0.65`", ",", "0.82`", ",", 
   "0.57`", ",", "0.57`", ",", "0.43`"}], "}"}]], "Output",
 CellChangeTimes->{3.782501734659215*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"004f6e98-2f36-487e-a17f-a9aff0a94835"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"b", ",", "d"}], "}"}], "]"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<C/\[Mu]F\>\"", ",", "\"\<Cos[\[Phi]]\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7825017465523396`*^9, 3.7825018087669272`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"6f1ccf83-e261-4ad9-b48c-883e26eaa53a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<G:/2.eps\>\"", ",", 
   GraphicsBox[{{}, {{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{0., 0.38}, {1., 0.48}, {2., 0.52}, {3., 0.65}, {4., 0.82}, {
        5., 0.57}, {6., 0.57}, {7., 0.43}}]}, {}}, {}, {}, {}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{
      FormBox["\"C/\[Mu]F\"", TraditionalForm], 
      FormBox["\"Cos[\[Phi]]\"", TraditionalForm]},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 7.}, {0, 0.82}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "]"}]], "Input",
 CellChangeTimes->{{3.782503378124452*^9, 3.782503398044183*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"71e94c48-a097-4219-a882-f3a19f6c56da"],

Cell[BoxData["\<\"G:/2.eps\"\>"], "Output",
 CellChangeTimes->{3.782503399241979*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"679a6dff-32f8-4838-801b-2206581b8af4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"e", "=", 
  RowBox[{"{", 
   RowBox[{
   "30", ",", "30", ",", "29", ",", "30", ",", "32", ",", "30", ",", "30", 
    ",", "31"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.78250182953343*^9, 3.7825018594095764`*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"1a8e6f71-128f-45af-b6da-6b7747c54b5f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "30", ",", "30", ",", "29", ",", "30", ",", "32", ",", "30", ",", "30", ",",
    "31"}], "}"}]], "Output",
 CellChangeTimes->{3.782501861858986*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"e90a6dce-6bef-4334-90b4-affbd1ee5bdc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"b", ",", "e"}], "}"}], "]"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<C/\[Mu]F\>\"", ",", "\"\<P/W\>\""}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "10"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7825018705746775`*^9, 3.782501885048972*^9}, {
  3.7825019612135468`*^9, 3.7825019794896736`*^9}, {3.7825020570449295`*^9, 
  3.782502102581568*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"9111c40a-4e04-4bf1-8c12-7f8a29aa920e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<G:/3.eps\>\"", ",", 
   GraphicsBox[{{}, {{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{0., 30.}, {1., 30.}, {2., 29.}, {3., 30.}, {4., 32.}, {5., 
        30.}, {6., 30.}, {7., 31.}}]}, {}}, {}, {}, {}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{
      FormBox["\"C/\[Mu]F\"", TraditionalForm], 
      FormBox["\"P/W\"", TraditionalForm]},
    AxesOrigin->{0., 10.},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{0., 7.}, {10., 32.}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7825036212350693`*^9, 3.782503649905865*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"bfa1c4ea-247e-4484-9cc7-1b191926d2b4"],

Cell[BoxData["\<\"G:/3.eps\"\>"], "Output",
 CellChangeTimes->{{3.7825036458736477`*^9, 3.782503651479707*^9}},
 CellLabel->"Out[52]=",ExpressionUUID->"4496a5b4-b803-4827-85d3-6512aadd90e8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"TeXForm", "[", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"Q", "[", "U", "]"}], ",", "U"}], "]"}], "+", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"Q", "[", "\[CapitalIota]", "]"}], ",", "\[CapitalIota]"}], 
     "]"}], "+", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"Q", "[", "P", "]"}], ",", "P"}], "]"}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7825025589392824`*^9, 3.7825026438631754`*^9}, {
  3.782502726107587*^9, 3.78250283668248*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"fe829ba6-766f-4a03-b6a7-6ef19a6f1f52"],

Cell["\<\
TeX[dQ=Q'(P)*dP+Q'(I)*d\[CapitalIota]+Q'(U)*dU=-((U \[CapitalIota] \
Dt[P])/P^2)+(\[CapitalIota] Dt[U])/P+(U Dt[\[CapitalIota]])/P]\
\>", "Input",
 CellChangeTimes->{{3.7825031337497826`*^9, 
  3.782503216387901*^9}},ExpressionUUID->"fa4e6e54-c1ad-4608-9e55-\
5f44dbfb96ec"],

Cell[BoxData[
 RowBox[{"Clear", "[", "Q", "]"}]], "Input",
 CellChangeTimes->{{3.782502964783457*^9, 3.7825029703425913`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"9b925806-5bd7-458f-af65-72d8232c4e61"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Q", "[", 
   RowBox[{"U", ",", "\[CapitalIota]", ",", "P"}], "]"}], "=", 
  RowBox[{"U", " ", 
   RowBox[{"\[CapitalIota]", "/", "P"}]}]}]], "Input",
 CellChangeTimes->{{3.782502843971532*^9, 3.7825028527171063`*^9}, {
  3.782502944472734*^9, 3.782502956860644*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"54c34a26-4181-4872-b7da-4ca128be52f4"],

Cell[BoxData[
 FractionBox[
  RowBox[{"U", " ", "\[CapitalIota]"}], "P"]], "Output",
 CellChangeTimes->{
  3.7825028545202847`*^9, {3.782502957872899*^9, 3.782502973210883*^9}},
 CellLabel->"Out[43]=",ExpressionUUID->"a88016b0-521c-4af3-9f39-2ce0c17de1e9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", 
   RowBox[{"Q", "[", 
    RowBox[{"U", ",", "\[CapitalIota]", ",", "P"}], "]"}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.782502926410078*^9, 3.782502941708127*^9}, {
  3.7825030446799526`*^9, 3.7825030478694224`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"f7d9ada5-1e66-4160-8d69-9030f2909be4"],

Cell[BoxData[
 RowBox[{"TeXForm", "[", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"U", " ", "\[CapitalIota]", " ", 
      RowBox[{"Dt", "[", "P", "]"}]}], 
     SuperscriptBox["P", "2"]]}], "+", 
   FractionBox[
    RowBox[{"\[CapitalIota]", " ", 
     RowBox[{"Dt", "[", "U", "]"}]}], "P"], "+", 
   FractionBox[
    RowBox[{"U", " ", 
     RowBox[{"Dt", "[", "\[CapitalIota]", "]"}]}], "P"]}], "]"}]], "Input",
 CellChangeTimes->{{3.782503057987404*^9, 3.7825030629201736`*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"0ac638da-c41c-4bb1-b2b7-ab4a216c597c"],

Cell["dQ=-\\frac{I U dP}{P^2}+\\frac{I dU}{P}+\\frac{U dI}{P}", "Input",
 CellChangeTimes->{{3.7825031136296043`*^9, 
  3.782503119449005*^9}},ExpressionUUID->"46401324-56a4-45f1-9ba8-\
410fdfff1d6e"],

Cell["", "Input",
 CellChangeTimes->{{3.782503080674695*^9, 
  3.782503108312833*^9}},ExpressionUUID->"e97a3cdc-a22d-4e7d-8185-\
a67e003a75b7"],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.782503221616946*^9, 
  3.7825032517662907`*^9}},ExpressionUUID->"817990b2-afd0-4304-aadd-\
b5934d80de8a"],

Cell[BoxData[
 TemplateBox[{
  "Set","write",
   "\"\\!\\(\\*RowBox[{RowBox[{\\\"\[ImaginaryI]\\\", \\\" \\\", \\\"d\
\[CapitalIota]\\\", \\\" \\\", SuperscriptBox[\\\"Q\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]}], \\\"+\\\", RowBox[{\\\"dP\\\", \\\" \\\", \
\\\"P\\\", \\\" \\\", SuperscriptBox[\\\"Q\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]}], \\\"+\\\", RowBox[{\\\"dU\\\", \\\" \\\", \
\\\"U\\\", \\\" \\\", SuperscriptBox[\\\"Q\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]]}]}]\\) \:4e2d\:7684\:6807\:7b7e \
\\!\\(\\*RowBox[{\\\"Plus\\\"}]\\) \:88ab\:4fdd\:62a4.\"",2,48,29,
   27755430762344008162,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7825032275690284`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[48]:=",ExpressionUUID->"875ef449-6166-42cb-adcf-\
f8691ef8fb71"],

Cell["-\\frac{I U dP}{P^2}+\\frac{I dU}{P}+\\frac{U dI}{P}", "Output",
 CellChangeTimes->{3.782503227574983*^9},
 CellLabel->
  "Out[48]//TeXForm=",ExpressionUUID->"9982e907-88d6-475e-a8bf-b251beec5945"]
}, Open  ]]
},
WindowSize->{1264, 637},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 335, 7, 28, "Input",ExpressionUUID->"15743a44-d7d6-4826-91e1-48243c0f3a06"],
Cell[918, 31, 293, 6, 32, "Output",ExpressionUUID->"6e8e411d-cad6-4d6b-a4af-13d758db7043"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1248, 42, 416, 9, 45, "Input",ExpressionUUID->"1cb8a5c8-cc86-407b-9fb9-d630c7eb886f"],
Cell[1667, 53, 315, 7, 32, "Output",ExpressionUUID->"49af61f0-df2b-44dc-a2a0-db3276a12ba4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2019, 65, 331, 7, 45, "Input",ExpressionUUID->"1137f1b2-2610-4951-9184-84b177fc12b4"],
Cell[2353, 74, 754, 21, 32, "Output",ExpressionUUID->"ba061611-c4bf-4e11-b8ef-04af10d5e4c3"]
}, Open  ]],
Cell[3122, 98, 399, 9, 45, "Input",ExpressionUUID->"c30c14c2-9541-4c6d-bd46-4770f7323d0d"],
Cell[CellGroupData[{
Cell[3546, 111, 1610, 41, 343, InheritFromParent,ExpressionUUID->"854b10eb-7416-44ff-9244-0d7000a1a5be"],
Cell[5159, 154, 166, 2, 32, "Output",ExpressionUUID->"e802fec2-5ea9-4f2a-b75b-150064ae5fb5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5362, 161, 336, 7, 28, "Input",ExpressionUUID->"467a86af-91af-4387-9fe1-fd6db6166044"],
Cell[5701, 170, 293, 6, 32, "Output",ExpressionUUID->"004f6e98-2f36-487e-a17f-a9aff0a94835"]
}, Open  ]],
Cell[6009, 179, 446, 11, 45, "Input",ExpressionUUID->"6f1ccf83-e261-4ad9-b48c-883e26eaa53a"],
Cell[CellGroupData[{
Cell[6480, 194, 1581, 40, 93, InheritFromParent,ExpressionUUID->"71e94c48-a097-4219-a882-f3a19f6c56da"],
Cell[8064, 236, 164, 2, 32, "Output",ExpressionUUID->"679a6dff-32f8-4838-801b-2206581b8af4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8265, 243, 319, 7, 28, "Input",ExpressionUUID->"1a8e6f71-128f-45af-b6da-6b7747c54b5f"],
Cell[8587, 252, 269, 6, 32, "Output",ExpressionUUID->"e90a6dce-6bef-4334-90b4-affbd1ee5bdc"]
}, Open  ]],
Cell[8871, 261, 638, 15, 45, "Input",ExpressionUUID->"9111c40a-4e04-4bf1-8c12-7f8a29aa920e"],
Cell[CellGroupData[{
Cell[9534, 280, 1572, 40, 95, InheritFromParent,ExpressionUUID->"bfa1c4ea-247e-4484-9cc7-1b191926d2b4"],
Cell[11109, 322, 190, 2, 32, "Output",ExpressionUUID->"4496a5b4-b803-4827-85d3-6512aadd90e8"]
}, Open  ]],
Cell[11314, 327, 632, 17, 45, "Input",ExpressionUUID->"fe829ba6-766f-4a03-b6a7-6ef19a6f1f52"],
Cell[11949, 346, 284, 6, 28, InheritFromParent,ExpressionUUID->"fa4e6e54-c1ad-4608-9e55-5f44dbfb96ec"],
Cell[12236, 354, 205, 3, 45, "Input",ExpressionUUID->"9b925806-5bd7-458f-af65-72d8232c4e61"],
Cell[CellGroupData[{
Cell[12466, 361, 380, 8, 28, "Input",ExpressionUUID->"54c34a26-4181-4872-b7da-4ca128be52f4"],
Cell[12849, 371, 256, 5, 55, "Output",ExpressionUUID->"a88016b0-521c-4af3-9f39-2ce0c17de1e9"]
}, Open  ]],
Cell[13120, 379, 369, 8, 66, "Input",ExpressionUUID->"f7d9ada5-1e66-4160-8d69-9030f2909be4"],
Cell[13492, 389, 575, 15, 70, InheritFromParent,ExpressionUUID->"0ac638da-c41c-4bb1-b2b7-ab4a216c597c"],
Cell[14070, 406, 200, 3, 28, InheritFromParent,ExpressionUUID->"46401324-56a4-45f1-9ba8-410fdfff1d6e"],
Cell[14273, 411, 143, 3, 28, InheritFromParent,ExpressionUUID->"e97a3cdc-a22d-4e7d-8185-a67e003a75b7"],
Cell[CellGroupData[{
Cell[14441, 418, 154, 3, 28, "Input",ExpressionUUID->"817990b2-afd0-4304-aadd-b5934d80de8a"],
Cell[14598, 423, 845, 16, 24, "Message",ExpressionUUID->"875ef449-6166-42cb-adcf-f8691ef8fb71"],
Cell[15446, 441, 203, 3, 46, "Output",ExpressionUUID->"9982e907-88d6-475e-a8bf-b251beec5945"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

